Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Color
Public Sub GrayScaleToDuetoneConstructorExample()
Dim codecs As New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))
' Prepare the command
Dim array() As RasterColor
Dim i As Integer
ReDim array(255)
For i = 0 To 255
array(i) = New RasterColor(255, CType(i \ 4, Byte), CType(i, Byte))
Next
'Apply duotone conversion.
Dim command As GrayScaleToDuotoneCommand = New GrayScaleToDuotoneCommand(array, Nothing, GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew)
command.Run(leadImage)
codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Color;
public void GrayScaleToDuotoneConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
RasterColor[] array = new RasterColor[256];
for (int i = 0; i < 256; i++)
array[i] = new RasterColor(255, (byte)(i / 4), (byte)(i));
//Apply duotone conversion.
GrayScaleToDuotoneCommand command = new GrayScaleToDuotoneCommand(array, new RasterColor(0, 0, 0), GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew);
command.Run(image);
codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Color;
public async Task GrayScaleToDuotoneConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
// Load the image
string srcFileName = @"Assets\IMAGE2.dcm";
StorageFile loadFile = await Tools.AppInstallFolder.GetFileAsync(srcFileName);
RasterImage image = await codecs.LoadAsync(LeadStreamFactory.Create(loadFile));
// Prepare the command
RasterColor[] array = new RasterColor[256];
for (int i = 0; i < 256; i++)
array[i] = RasterColorHelper.Create(255, (byte)(i / 4), (byte)(i));
//Apply duotone conversion.
GrayScaleToDuotoneCommand command = new GrayScaleToDuotoneCommand(array, RasterColorHelper.Create(0, 0, 0), GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew);
command.Run(image);
string destFileName = @"result.jpg";
StorageFile saveFile = await Tools.AppLocalFolder.CreateFileAsync(destFileName);
await codecs.SaveAsync(image, LeadStreamFactory.Create(saveFile), RasterImageFormat.Jpeg, 0);
}
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Color;
using Leadtools.Examples;
public void GrayScaleToDuotoneConstructorExample(RasterImage image, Stream outStream)
{
// Prepare the command
RasterColor[] array = new RasterColor[256];
for (int i = 0; i < 256; i++)
array[i] = new RasterColor(255, (byte)(i / 4), (byte)(i));
//Apply duotone conversion.
GrayScaleToDuotoneCommand command = new GrayScaleToDuotoneCommand(array, new RasterColor(0, 0, 0), GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew);
command.Run(image);
// Save result image
RasterCodecs codecs = new RasterCodecs();
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
image.Dispose();
}
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Color
Public Sub GrayScaleToDuotoneConstructorExample(ByVal image As RasterImage, ByVal outStream As Stream)
' Prepare the command
Dim array As RasterColor() = New RasterColor(255){}
For i As Integer = 0 To 255
array(i) = New RasterColor(255, CByte(i / 4), CByte(i))
Next i
'Apply duotone conversion.
Dim command As GrayScaleToDuotoneCommand = New GrayScaleToDuotoneCommand(array, New RasterColor(0, 0, 0), GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew)
command.Run(image)
' Save result image
Dim codecs As RasterCodecs = New RasterCodecs()
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
image.Dispose()
End Sub